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'timescale Ins/lOOps 
module rtr.wrapper; 

wire [19:0] Astmc, Artmc, Bstmc, Brtmc; 
wire [19:0] Cstmc, Crtmc, Dstmc, Drtmc; 
wire [7:0] miscin, miscout; 
wire Astall, Bstall, Cstall, Dstall; 
wire rst, elk; 

initial begin 
elk = 0; 

forever #5 elk = "elk; 
end 

rtr_top 

top (Astmc, Artme, Bstmc, Brtme, Cstmc, Crtmc, Dstmc, Drtme, 
misein, miscout, rst, elk); 

rtr.stub Atmc_stub(0, Astmc, Artme, Astall, rst, elk); 

rtr.stub Btmc_stub(2, Bstmc, Brtmc, Bstall, rst, elk); 

rtr.stub Ctmc_stub(4, Cstmc, Crtmc, Cstall, rst, elk); 

rtr.stub Dtmc_stub(6, Dstmc, Drtmc, Dstall, rst, elk); 



raven_apply_change #(1) Astall_stub(8, elk, Astall); 
raven.apply.change #(1) Bstall.stub(9, elk, Bstall); 
raven.apply.ehange #(1) Cstall_stub(10, elk, Cstall); 
raven.apply.change #(1) Dstall.stub(ll , elk, Dstall); 

raven_apply_ehange #(1) misein.stub(12, elk, misein); 
raven. ver if y.change #(1) miseout_stub(13, elk, miscout); 
raven_apply_change #(1) rst.stub(14, elk, rst); 

endmodule 






module rtr.stubCport , stmc, rtmc, stall, rst, elk) 

input [31:0] port; 
output [19:0] stmc; 
input [19:0] rtmc; 
input stall, rst, elk; 
wire sak, rak; 

rtr.xmtr xmtr(port, stme, sak, rak, rst, elk); 
rtr.revr revr(port + 1, rtmc, sak, stall, rst, elk); 

endmodule 




module rtr_xnitr(port , stmc, sak, rak, rst, elk) 

input [31:0] port; 
output [19:0] stmc; 
input [1:0] sak, rak; 
input rst, elk; 
wire [31:0] data; 
wire [1:0] vc; 
wire p, t, valid; 
wire [3:0] block; 

raven_apply_channel #(33,2) 

ravenCport, elk, {p, data}, vc, t, valid, block, 1); 

// Decode virtual channels 
wire goO = valid & (vc == 0) ; 
wire gol = valid & (vc == 1) ; 
wire go2 = valid & (vc == 2) ; 
wire go = goO I gol I go2; 

// Encode the transmitted flit. Ensure idle output while reset 
// is in progress (rak is already reset clean from receiver) . 
reg [37:0] out; 

always Q(rst or go or rak or p or t or vc or data) 
if (!rst && go) 

out = {rak, p, t, vc, data}; 



out = {rak, I'bO, I'bO, 2'h3, 32'hOOOOOOOO}; 

// Disassemble the flit based on the phase of the clock, 
stmc = elk ? out [37: 19] : out [18:0]; 

// Decode remote acknowledges, 
wire akO = (sak == 0) ; 
wire akl = (sak == 1) ; 
wire ak2 = (sak == 2) ; 

// Track the free buffer space at the remote receiver, 
rtr.free freeO(blockO, goO, akO, rst, elk); 
rtr.free freeKblockl , gol, akl, rst, elk); 
rtr.free f ree2(block2, go2, ak2, rst, elk); 

// Assemble the virtual channel blocks . 
assign block = {I'bl, block2, blockl, blockO}; 

endmodule 
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module rtr_free (block, go, ak, rst, elk) 

output block; 

input go, ak, rst, elk; 

reg[3:0] free; 

// luitialize free count at reset. 

// Decrement free count when transmitting and increment when 
// being acknowledged. If both happen simultaneously, net 
// result is to do nothing, 
always 8(posedge elk) 
if (rst) 

free <= 8; 
else if (go ftft !ak) 
free <= free - 1; 
else if (!go ftfe ak) 
free <= free +1; 

// Block when no space left, 
assign block = (free == 0) ; 

endmodule 




mod\il^^-rcvT(port, rtmc, sak, rak, st^^ rst, elk); 

input [31:0] port; 

input [19:0] rtmc; 

output sak, rak; 

input stall, rst, elk; 

reg [37:0] in; 

reg [31:0] data; 

reg [1:0] ak, vc; 

reg p, t, valid; 

reg [1:0] buf f er[0:31] ; 

reg [4:0] bufferhead, buffertail; 

wire empty, pop, push; 

// Reassemble the flit based on the phase of elk- 
always OCposedge elk) 

in [18:0] <= rtmc; 
always OCnegedge elk) 

in [37: 19] <= rtmc; 

// Decode the received flit, 
always QCnegedge elk) 

{ak, p, t, vc, data} <= in; 
assign valid = !rst & (vc != 3); 

// Propagate the remote receiver acknowledge back to the local 
// sender. Filter any noise while reset is in progress, 
assign sak = !rst ? ak : 3; 

// Buffer the local acknowledge for the flit just received, 
assign push = "rst & valid; 
always Q(posedge elk) 
if (rst) 

buffertail <= 0; 
else if (push) begin 
buffer [buffertail] <= vc; 
buffertail <= buffertail + 1; 
end 

// Pull acknowledges from the other end of the buffer as 

// long as they are not being stalled. ^ 

assign empty = (bufferhead == buffertail) ; t 

assign pop = "rst & "empty & "stall; 

assign rak = pop ? buf f er [buf f erhead] : 3; 

always O(posedge elk) _ ' ' 

if (rst) 

bufferhead <- 0; 

else 

bufferhead <= bufferhead + 1; 

raven_verify_channel #(33,2) 

raven(port, {p, data}, vc, t, valid, I'hO, 1); 



endmodule 



#include <raven/diagnostic.h> 



namespace mp { 

// Port definitions 



const 


int 


AIN = 0; 




const 


int 


AOUT = 1; 




const 


int 


BIN = 2; 




const 


int 


BOUT = 3; 




const 


int 


CIN = 4; 




const 


int 


COUT = 5; 




const 


int 


DIN = 6; 




const 


int 


DOUT = 7; 




const 


int 


ASTALL = 


8; 


const 


int 


BSTALL = 


9; 


const 


int 


CSTALL = 


10; 


const 


int 


DSTALL = 


11; 


const 


int 


MISCIN = 


12; 


const 


int 


MISCOUT = 


= 13; 


const 


int 


RST = 14; 



// Command definitions 
const int PUT = 0x0; 
const int GET = 0x1; 
const int ERROR = Oxf ; 

// Register definitions 
const int LUT = 0x0000; 
const int MISCIN = 0x1000; 
const int MISCOUT = 0x1004; 
const int LOCK = 0x2000; 

// Define a 32 bit register with error flag, 
struct flit : public raven: :reg<31 ,0>{ 
raven: :reg<0,0> err; 

}; 



// Define a message, include all possible fields, 
struct msg { 

raven: :reg<7,0> dest; 

raven: :reg<7,0> src; 

raven: :reg<3,0> cmd; 

raven: :reg<3,0> mask; 

raven: :reg<7,0> id; 

raven: :reg<0,0> err; 

flit addr; 

raven: :vector<flit> data; 
int vc; 
msgO O 

msg(const raven: :b\indle & other); 
operator raven: :anybundle() ; 

>; 

// Define port encoding to accept a node and a location, 
struct port { 
int node, loc; 

portCint p) : nodeCp » 8), loc(p & Oxff) O 

port(int n, int 1) : node(n), loc(l) O 

operator intO { return (node « 8) I (loc & Oxff); } 

}; 

// Make all kernel constructs visible, 
using namespace raven; 

} 

// Enable diagnostic line numbering. 
#include <raven/lines.h> 





int p = 1; 

for (int i = 0; i < 32; i++) 
p -= x[0](i): 



return p; 



} 



mp: :msg: :insg( const raven: : bundle 6 x) 



// Decode head flit, 
dest = x[0] (31.24); 
src = x[0] (23,16); 
cmd = x[0] (15,12); 
mask = X CO] (11,8); 
id = x[0](7,0); 

err = x[0](32) " parity(xCO] (31 ,0)) ; 
vc = x.TC; 

// Decode address flit for request messages longer 
// single flit, 
int w = 1; 

if (vc == 0 && x.sizeO > 1) -C 
addr = x[w](31,0); 

addr.err = x[w](32) " parity(x[w] (31,0)) ; 
W++; 

> 

// Decode data flits, if any. 
for (int i = w; i < x.sizeO; i++) { 
dataCi - w] = x[i](31,0); 

dataCi - w].err = x[i](32) " par ity(x[i] (31,0)) ; 

> 

> 

mp: :msg: : operator raven: : bundle () 
{ 

raven : : biindle <32 , 0> x ; 

// Encode head flit. ^ 

x[0] (31,24) = dest; 

x[0] (23,16) = src; 

X CO] (15,12) = cmd; 

xCO] (11,8) = mask; 

X CO] (7,0) = id; 

xC0](32) = err " parity(xCO] ) ; 

err = (xCO] (32) != parity (x CO] (31,0))) ; 



vc = x.vc; 



// Encode address flit for request messages. 

int w = 1; 

if (vc == 0) { 

x[w](31,0) = addr; 

x[w](32) = err " parity (xCw] (31,0)) ; 
W++; 

} 

// Encode data flits, if any. 

for (int i = 0; i < data.sizeO; i++) { 

xCi + w](31,0) = dataCi]; 

x[i + w](32) = err * parity (x[i] (31,0)) ; 

} 

> 



#incl]^t <raveii/mp . h> 
mainO 



// Write LOCK register, 
mp: :msg m; 
m.cmd = PUT; 
m.addr = LOCK; 
m.dataCO] = Oxdeadbeef ; 
m.vc = 0; 

mp: : apply (AIN, m, "Write LOCK request" ); 
// Verify response and wait for completion. 

m.data.length(O); // remove data but retain header information 
m.vc = i; 

mp::verify(AOUT, m, "Write LOCK response" ); 
mp: : await ("Write LOCK register response"); 

// Simultaneously read LOCK from all ports 
m.cmd - GET; 
m.vc = 0; 

mp::apply(AIN, m, "Read LOCK request A" ) 

mp:: apply (BIN, m, "Read LOCK request B" ) 

mp::apply(CIN, m. "Read LOCK request C" ) 

mp: : apply (DIN, m. "Read LOCK request D" ) 

// Construct possibile outcomes, 
mp: :msg yes, no; 
yes.cmd = no.cmd = GET; 
yes.addr = no.addr = LOCK; 
yes.dataCO] = Oxdeadbeef; 
no. data [0] = 0; 
int x; 

// Possibility A 

X = mp::verify(AOUT, yes. "Read LOCK response"); 
X = mp:: verify (BOUT, no, "Read LOCK response", x) ; 



X 



mp::verify(COUT, no, "Read LOCK response", x) ; 
mp::verify(DOUT, no, "Read LOCK response" ,\x) ; 



// Possibility B 

X = mp::verify(AOUT. no, "Read LOCK response"); 

X = mp:: verify (BOUT, yes, "Read LOCK response", x) ; 

X = mp::verify(COUT, no, "Read LOCK response", x) ; 

mp : : verify (DOUT . no , "Read LOCK response " , x) ; 



// Possibility C 

X = inp::verify(AOUT, no, "Read LOCK response"); 
X = op:: verify (BOUT, no, "Read LOCK response", x) 
X = mp:: verify (GOUT, yes, "Read LOCK response", x) 
mp::verify(DOUT, no, "Read LOCK response" , x) 

// Possibility D 

x = mp::verify(AOUT, no, "Read LOCK response"); 

X = mp: : verify (BOUT, no, "Read LOCK response", x) 

X = mp: : verify (COUT, no, "Read LOCK response", x) 

mp::verify(DOUT, yes, "Read LOCK response", x) 

// Await for finish. 

mp: : await ("Read LOCK response"); 

mp: :pass() ; 



